/ Acorn User: China / Acorn User China CD-ROM (UK) (Disc A) / Acorn User China CD-ROM (UK) (Disc A).bin / DEMON / DEVELOPER / NETCONF0.ARC / !NetConfig_Lib_make

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 0a f4 3e 6d 61 | 6b 65 0d 00 0b 21 f4 20 |.....>ma|ke...!. |
|00000010| 43 6f 70 79 72 69 67 68 | 74 20 31 39 39 35 20 43 |Copyrigh|t 1995 C|
|00000020| 6f 6c 69 6e 20 48 6f 67 | 62 65 6e 0d 00 0c 40 f4 |olin Hog|ben...@.|
|00000030| 20 59 6f 75 20 75 73 65 | 20 74 68 69 73 20 63 6f | You use| this co|
|00000040| 64 65 20 66 6f 72 20 61 | 6e 79 20 6e 6f 6e 2d 70 |de for a|ny non-p|
|00000050| 72 6f 66 69 74 20 70 75 | 72 70 6f 73 65 2c 20 70 |rofit pu|rpose, p|
|00000060| 72 6f 76 69 64 65 64 20 | 79 6f 75 0d 00 0d 3e f4 |rovided |you...>.|
|00000070| 20 64 6f 63 75 6d 65 6e | 74 20 61 6e 79 20 63 68 | documen|t any ch|
|00000080| 61 6e 67 65 73 20 6d 61 | 64 65 20 61 6e 64 20 61 |anges ma|de and a|
|00000090| 70 70 6c 79 20 74 68 65 | 20 73 61 6d 65 20 63 6f |pply the| same co|
|000000a0| 6e 64 69 74 69 6f 6e 73 | 2e 0d 00 14 04 0d 00 1e |nditions|........|
|000000b0| 10 dd 20 a4 6d 61 6b 65 | 5f 69 6e 69 74 0d 00 28 |.. .make|_init..(|
|000000c0| 13 f2 6c 69 62 72 61 72 | 79 28 22 76 61 72 22 29 |..librar|y("var")|
|000000d0| 0d 00 32 14 f2 6c 69 62 | 72 61 72 79 28 22 66 69 |..2..lib|rary("fi|
|000000e0| 6c 65 22 29 0d 00 3c 13 | 6d 61 6b 65 5f 73 74 61 |le")..<.|make_sta|
|000000f0| 72 74 24 3d 22 40 22 0d | 00 46 06 3d 30 0d 00 50 |rt$="@".|.F.=0..P|
|00000100| 04 0d 00 5a 1d f4 20 6d | 61 6b 65 20 66 69 6c 65 |...Z.. m|ake file|
|00000110| 20 66 72 6f 6d 20 74 65 | 6d 70 6c 61 74 65 0d 00 | from te|mplate..|
|00000120| 64 1e dd 20 f2 6d 61 6b | 65 5f 66 69 6c 65 28 5f |d.. .mak|e_file(_|
|00000130| 73 72 63 24 2c 5f 64 65 | 73 74 24 29 0d 00 6e 11 |src$,_de|st$)..n.|
|00000140| ea 20 64 65 73 74 25 2c | 74 79 70 65 25 0d 00 78 |. dest%,|type%..x|
|00000150| 2b f2 74 72 61 63 65 28 | 22 4d 61 6b 69 6e 67 20 |+.trace(|"Making |
|00000160| 22 2b 5f 64 65 73 74 24 | 2b 22 20 66 72 6f 6d 20 |"+_dest$|+" from |
|00000170| 22 2b 5f 73 72 63 24 29 | 0d 00 82 20 64 65 73 74 |"+_src$)|... dest|
|00000180| 25 3d a4 66 69 6c 65 5f | 6f 70 65 6e 28 5f 64 65 |%=.file_|open(_de|
|00000190| 73 74 24 2c 22 77 22 29 | 0d 00 83 39 e7 20 64 65 |st$,"w")|...9. de|
|000001a0| 73 74 25 3d 30 20 f2 66 | 61 74 61 6c 28 22 43 61 |st%=0 .f|atal("Ca|
|000001b0| 6e 6e 6f 74 20 6f 70 65 | 6e 20 22 2b 5f 64 65 73 |nnot ope|n "+_des|
|000001c0| 74 24 2b 22 20 66 6f 72 | 20 6f 75 74 70 75 74 22 |t$+" for| output"|
|000001d0| 29 0d 00 8c 1e 74 79 70 | 65 25 3d a4 66 69 6c 65 |)....typ|e%=.file|
|000001e0| 5f 67 65 74 74 79 70 65 | 28 5f 73 72 63 24 29 0d |_gettype|(_src$).|
|000001f0| 00 96 30 e7 20 74 79 70 | 65 25 3e 3d 30 20 f2 66 |..0. typ|e%>=0 .f|
|00000200| 69 6c 65 5f 73 65 74 74 | 79 70 65 28 5f 64 65 73 |ile_sett|ype(_des|
|00000210| 74 24 2c 22 26 22 2b c3 | 7e 74 79 70 65 25 29 0d |t$,"&"+.|~type%).|
|00000220| 00 aa 1f f2 5f 6d 61 6b | 65 5f 69 6e 63 6c 75 64 |...._mak|e_includ|
|00000230| 65 28 5f 73 72 63 24 2c | 64 65 73 74 25 29 0d 00 |e(_src$,|dest%)..|
|00000240| b4 16 f2 66 69 6c 65 5f | 63 6c 6f 73 65 28 64 65 |...file_|close(de|
|00000250| 73 74 25 29 0d 00 be 05 | e1 0d 00 c8 04 0d 00 d2 |st%)....|........|
|00000260| 21 dd 20 f2 5f 6d 61 6b | 65 5f 69 6e 63 6c 75 64 |!. ._mak|e_includ|
|00000270| 65 28 5f 73 72 63 24 2c | 64 65 73 74 25 29 0d 00 |e(_src$,|dest%)..|
|00000280| dc 3a ea 20 73 72 63 25 | 2c 69 66 6c 65 76 65 6c |.:. src%|,iflevel|
|00000290| 25 2c 69 66 66 61 69 6c | 25 2c 5f 6c 69 6e 65 24 |%,iffail|%,_line$|
|000002a0| 2c 6c 69 6e 65 25 2c 73 | 25 2c 65 72 72 6f 72 5f |,line%,s|%,error_|
|000002b0| 63 6f 6e 74 65 78 74 24 | 0d 00 e6 13 73 25 3d a9 |context$|....s%=.|
|000002c0| 6d 61 6b 65 5f 73 74 61 | 72 74 24 0d 00 f0 1e 73 |make_sta|rt$....s|
|000002d0| 72 63 25 3d a4 66 69 6c | 65 5f 6f 70 65 6e 28 5f |rc%=.fil|e_open(_|
|000002e0| 73 72 63 24 2c 22 72 22 | 29 0d 00 fa 36 e7 20 73 |src$,"r"|)...6. s|
|000002f0| 72 63 25 3d 30 20 f2 66 | 61 74 61 6c 28 22 43 61 |rc%=0 .f|atal("Ca|
|00000300| 6e 6e 6f 74 20 6f 70 65 | 6e 20 22 2b 5f 73 72 63 |nnot ope|n "+_src|
|00000310| 24 2b 22 20 66 6f 72 20 | 69 6e 70 75 74 22 29 0d |$+" for |input").|
|00000320| 01 04 0e c8 95 20 ac c5 | 23 73 72 63 25 0d 01 0e |..... ..|#src%...|
|00000330| 13 20 20 5f 6c 69 6e 65 | 24 3d be 23 73 72 63 25 |.  _line|$=.#src%|
|00000340| 0d 01 0f 0e 20 20 6c 69 | 6e 65 25 2b 3d 31 0d 01 |....  li|ne%+=1..|
|00000350| 10 2a 20 20 65 72 72 6f | 72 5f 63 6f 6e 74 65 78 |.*  erro|r_contex|
|00000360| 74 24 3d 5f 73 72 63 24 | 2b 22 20 6c 69 6e 65 20 |t$=_src$|+" line |
|00000370| 22 2b c3 6c 69 6e 65 25 | 0d 01 18 0c 20 20 c8 8e |"+.line%|....  ..|
|00000380| 20 b9 20 ca 0d 01 22 26 | 20 20 c9 20 c0 5f 6c 69 | . ..."&|  . ._li|
|00000390| 6e 65 24 2c 73 25 2b 32 | 29 3d 6d 61 6b 65 5f 73 |ne$,s%+2|)=make_s|
|000003a0| 74 61 72 74 24 2b 22 69 | 66 22 0d 01 2c 13 20 20 |tart$+"i|f"..,.  |
|000003b0| 20 20 69 66 6c 65 76 65 | 6c 25 2b 3d 31 0d 01 36 |  ifleve|l%+=1..6|
|000003c0| 15 20 20 20 20 e7 20 69 | 66 66 61 69 6c 25 3d 30 |.    . i|ffail%=0|
|000003d0| 20 8c 0d 01 37 25 20 20 | 20 20 20 20 f2 74 72 61 | ...7%  |    .tra|
|000003e0| 63 65 28 22 69 66 20 22 | 2b c1 5f 6c 69 6e 65 24 |ce("if "|+._line$|
|000003f0| 2c 73 25 2b 33 29 29 0d | 01 38 26 20 20 20 20 20 |,s%+3)).|.8&     |
|00000400| 20 65 72 72 6f 72 5f 63 | 6f 6e 74 65 78 74 24 3d | error_c|ontext$=|
|00000410| c1 5f 6c 69 6e 65 24 2c | 73 25 2b 33 29 0d 01 40 |._line$,|s%+3)..@|
|00000420| 28 20 20 20 20 20 20 e7 | 20 a0 c1 5f 6c 69 6e 65 |(      .| .._line|
|00000430| 24 2c 73 25 2b 33 29 3d | 30 20 8c 20 69 66 66 61 |$,s%+3)=|0 . iffa|
|00000440| 69 6c 25 3d 31 0d 01 4a | 09 20 20 20 20 cc 0d 01 |il%=1..J|.    ...|
|00000450| 54 14 20 20 20 20 20 20 | 69 66 66 61 69 6c 25 2b |T.      |iffail%+|
|00000460| 3d 32 0d 01 5e 09 20 20 | 20 20 cd 0d 01 68 2a 20 |=2..^.  |  ...h* |
|00000470| 20 c9 20 c0 5f 6c 69 6e | 65 24 2c 73 25 2b 36 29 | . ._lin|e$,s%+6)|
|00000480| 3d 6d 61 6b 65 5f 73 74 | 61 72 74 24 2b 22 65 6c |=make_st|art$+"el|
|00000490| 73 65 69 66 22 0d 01 72 | 2f 20 20 20 20 e7 20 69 |seif"..r|/    . i|
|000004a0| 66 6c 65 76 65 6c 25 3d | 30 20 f2 66 61 74 61 6c |flevel%=|0 .fatal|
|000004b0| 28 22 4d 69 73 70 6c 61 | 63 65 64 20 65 6c 73 65 |("Mispla|ced else|
|000004c0| 69 66 22 29 0d 01 7c 1f | 20 20 20 20 e7 20 69 66 |if")..|.|    . if|
|000004d0| 66 61 69 6c 25 3d 30 20 | 8c 20 69 66 66 61 69 6c |fail%=0 |. iffail|
|000004e0| 25 3d 32 0d 01 86 15 20 | 20 20 20 e7 20 69 66 66 |%=2.... |   . iff|
|000004f0| 61 69 6c 25 3d 31 20 8c | 0d 01 87 26 20 20 20 20 |ail%=1 .|...&    |
|00000500| 20 20 65 72 72 6f 72 5f | 63 6f 6e 74 65 78 74 24 |  error_|context$|
|00000510| 3d c1 5f 6c 69 6e 65 24 | 2c 73 25 2b 37 29 0d 01 |=._line$|,s%+7)..|
|00000520| 90 26 20 20 20 20 20 20 | e7 20 a0 c1 5f 6c 69 6e |.&      |. .._lin|
|00000530| 65 24 2c 73 25 2b 37 29 | 20 8c 20 69 66 66 61 69 |e$,s%+7)| . iffai|
|00000540| 6c 25 3d 30 0d 01 9a 09 | 20 20 20 20 cd 0d 01 a4 |l%=0....|    ....|
|00000550| 28 20 20 c9 20 c0 5f 6c | 69 6e 65 24 2c 73 25 2b |(  . ._l|ine$,s%+|
|00000560| 34 29 3d 6d 61 6b 65 5f | 73 74 61 72 74 24 2b 22 |4)=make_|start$+"|
|00000570| 65 6c 73 65 22 0d 01 ae | 2d 20 20 20 20 e7 20 69 |else"...|-    . i|
|00000580| 66 6c 65 76 65 6c 25 3d | 30 20 f2 66 61 74 61 6c |flevel%=|0 .fatal|
|00000590| 28 22 4d 69 73 70 6c 61 | 63 65 64 20 65 6c 73 65 |("Mispla|ced else|
|000005a0| 22 29 0d 01 b8 1f 20 20 | 20 20 e7 20 69 66 66 61 |")....  |  . iffa|
|000005b0| 69 6c 25 3d 30 20 8c 20 | 69 66 66 61 69 6c 25 3d |il%=0 . |iffail%=|
|000005c0| 32 0d 01 c2 1f 20 20 20 | 20 e7 20 69 66 66 61 69 |2....   | . iffai|
|000005d0| 6c 25 3d 31 20 8c 20 69 | 66 66 61 69 6c 25 3d 30 |l%=1 . i|ffail%=0|
|000005e0| 0d 01 cc 29 20 20 c9 20 | c0 5f 6c 69 6e 65 24 2c |...)  . |._line$,|
|000005f0| 73 25 2b 35 29 3d 6d 61 | 6b 65 5f 73 74 61 72 74 |s%+5)=ma|ke_start|
|00000600| 24 2b 22 65 6e 64 69 66 | 22 0d 01 d6 2e 20 20 20 |$+"endif|"....   |
|00000610| 20 e7 20 69 66 6c 65 76 | 65 6c 25 3d 30 20 f2 66 | . iflev|el%=0 .f|
|00000620| 61 74 61 6c 28 22 4d 69 | 73 70 6c 61 63 65 64 20 |atal("Mi|splaced |
|00000630| 65 6e 64 69 66 22 29 0d | 01 e0 13 20 20 20 20 69 |endif").|...    i|
|00000640| 66 6c 65 76 65 6c 25 2d | 3d 31 0d 01 ea 17 20 20 |flevel%-|=1....  |
|00000650| 20 20 e7 20 69 66 66 61 | 69 6c 25 20 3e 20 32 20 |  . iffa|il% > 2 |
|00000660| 8c 0d 01 f4 14 20 20 20 | 20 20 20 69 66 66 61 69 |.....   |   iffai|
|00000670| 6c 25 2d 3d 32 0d 01 fe | 09 20 20 20 20 cc 0d 02 |l%-=2...|.    ...|
|00000680| 08 13 20 20 20 20 20 20 | 69 66 66 61 69 6c 25 3d |..      |iffail%=|
|00000690| 30 0d 02 12 09 20 20 20 | 20 cd 0d 02 1c 11 20 20 |0....   | .....  |
|000006a0| c9 20 69 66 66 61 69 6c | 25 3e 30 0d 02 26 2a 20 |. iffail|%>0..&* |
|000006b0| 20 20 20 f4 20 69 67 6e | 6f 72 65 20 75 6e 65 78 |   . ign|ore unex|
|000006c0| 65 63 75 74 65 64 20 62 | 72 61 6e 63 68 20 6f 66 |ecuted b|ranch of|
|000006d0| 20 27 69 66 27 0d 02 30 | 2b 20 20 c9 20 c0 5f 6c | 'if'..0|+  . ._l|
|000006e0| 69 6e 65 24 2c 73 25 2b | 37 29 3d 6d 61 6b 65 5f |ine$,s%+|7)=make_|
|000006f0| 73 74 61 72 74 24 2b 22 | 69 6e 63 6c 75 64 65 22 |start$+"|include"|
|00000700| 0d 02 3a 2c 20 20 20 20 | f2 5f 6d 61 6b 65 5f 69 |..:,    |._make_i|
|00000710| 6e 63 6c 75 64 65 28 a0 | c1 5f 6c 69 6e 65 24 2c |nclude(.|._line$,|
|00000720| 73 25 2b 38 29 2c 64 65 | 73 74 25 29 0d 02 44 07 |s%+8),de|st%)..D.|
|00000730| 20 20 7f 0d 02 4e 22 20 | 20 20 20 d5 23 64 65 73 |  ...N" |   .#des|
|00000740| 74 25 2c a4 76 61 72 5f | 73 75 62 73 74 28 5f 6c |t%,.var_|subst(_l|
|00000750| 69 6e 65 24 29 0d 02 58 | 07 20 20 cb 0d 02 62 05 |ine$)..X|.  ...b.|
|00000760| ce 0d 02 6c 15 f2 66 69 | 6c 65 5f 63 6c 6f 73 65 |...l..fi|le_close|
|00000770| 28 73 72 63 25 29 0d 02 | 76 05 e1 0d ff          |(src%)..|v....   |
+--------+-------------------------+-------------------------+--------+--------+